---
title: "Alumnado UCM"
author: "M. Pérez de los Ríos"
date: "Mayo 2024"
output: 
  flexdashboard::flex_dashboard:
    theme: cosmo
    source_code: embed
    social: ["twitter", "facebook"]
---

```{r setup, include=FALSE}
library(flexdashboard)
library(readr)   
library(readxl)
library(ggplot2)
library(dplyr)
library(plotly)
library(DT)

df <- read_delim("~/Desktop/Proyecto_tema_3/datos_tratados.csv",  delim = ";", escape_double = FALSE)
    
df$CURSO <- factor(df$CURSO)
df$CENTRO <- factor(df$CENTRO)

#agrupamos los datos por curso

grouped_data <- df %>%
  group_by(CURSO) %>%
  summarise(across(where(is.numeric), sum))

df_4_M <- select(df,CURSO,CENTRO,TOTAL_MUJERES,PORC_MUJERES)
df_4_H <- select(df,CURSO,CENTRO,TOTAL_HOMBRES,PORC_HOMBRES)
colnames(df_4_M)[3] <-"TOTAL"
colnames(df_4_H)[3] <-"TOTAL"
colnames(df_4_M)[4] <-"PORCENTAJE"
colnames(df_4_H)[4] <-"PORCENTAJE"
nrow(df_4_H)
rep('Hombre', times = nrow(df_4_H))
nrow(df_4_M)
rep('Mujer', times = nrow(df_4_M))
df_4_M$SEXO <- rep('Mujer', times = nrow(df_4_M))
df_4_H$SEXO <- rep('Hombre', times =nrow(df_4_H))
df_5 <- bind_rows(df_4_M,df_4_H)
df_3 <- filter(df, CENTRO == "DERECHO" | CENTRO == "CIENCIAS_DE_LA_INFORMACION")

df_3$CURSO <- factor(df_3$CURSO)
df_3$CENTRO <- factor(df_3$CENTRO)
```

# Página 1
## Columna 1
### Tabla de datos

```{r}
# Crear una tabla interactiva con DT
tabla_interactiva <- datatable(df, options = list( pageLength = 25))
tabla_interactiva

```

## Columna 2
### Total de alumnos por curso


```{r fig.width=10, fig.height=5}
ggplot(df, aes(x = CURSO, y = TOTAL)) +
  geom_col() +
  labs(title = "U.C.M", x = "Curso", y = "Total de alumnos/as",) +
  theme(axis.text.x = element_text(angle = 30, vjust = 1, hjust = 1, size = 8))
```


### Cuadro de texo con comentarios {data-height = 300}

1. Se incluyen los datos de alumnos por curso
2. Se analizan por carrera

### Cuadro de texto sin título {data-height = 100, no-title}

# Página 2 {data-orientation=rows}

## Row

### Componente 1

```{r fig.width=10, fig.height=5}
gl <- ggplot(df_5, aes(x = CURSO, w = TOTAL, fill = SEXO)) +
  geom_bar(aes(stat = "identity", position = "dodge")) +
  labs(title = "Total de Alumnos", x = "CURSO", y = "TOTAL") +
  scale_fill_manual(values = c("TOTAL_MUJERES" = "blue", "TOTAL_HOMBRES" = "red")) +
  theme(axis.text.x = element_text(angle = 30, vjust = 1, hjust = 1, size = 8))
g2 <- ggplotly(gl)
g2
````

### Componente 2

```{r fig.width=10, fig.height=5}
ggplot(df_3, aes(x=CENTRO, y=TOTAL)) +
  geom_boxplot( ) + 
  geom_jitter(aes(color = CENTRO )) +
  labs(title = "Distribución de los alumnos que estudian en la UCM",
       subtitle = "Gráficos de cajas, (geom_boxplot)",
       x = " ",
       y = "Número de matriculas por año \n"
  )
````